(dired-readin-insert): Expand dired-directory.

diff --git a/lisp/dired.el b/lisp/dired.el
index e26447fbd2f9c0d13bbba5048007520f0a133f25..5fe4e4aedbd1619fecb201ab5ee680822f6afb12 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -654,6 +654,7 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh."
              file-list (cdr dired-directory))
       (setq dir dired-directory
            file-list nil))
+    (setq dir (expand-file-name dir))
     (if (and (equal "" (file-name-nondirectory dir))
             (not file-list))
        ;; If we are reading a whole single directory...